module mCommandLine

        implicit none

        interface

                subroutine getarg(n, arg)
                        integer :: n
                        character*(*) :: arg
                end subroutine getarg

                integer function iargc()
                end function iargc

        end interface

end module mCommandLine

